﻿Public Class btnTimKiemChuNha



    Private Sub frmTimKiemChuNha_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim listKhachHangChoThue As New List(Of KhachHangChoThueDTO)

        listKhachHangChoThue = KhachHangChoThueBUS.GetAll()
        DataGridViewX1.DataSource = listKhachHangChoThue
    End Sub




  
    
    Private Sub btnTraCuu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTraCuu.Click
        If Not txtTimChuNha.Text = "" Then
            Dim list As New List(Of KhachHangChoThueDTO)
            list = KhachHangChoThueBUS.TimTheoTen(txtTimChuNha.Text)
            If Not list.Count = 0 Then
                DataGridViewX1.DataSource = list
            Else
                MessageBox.Show("Xin lỗi !Không tìm thấy thông tin cần tìm", "THÔNG BÁO")
            End If
        Else
            MessageBox.Show("Bạn chưa nhập thôg tin cần tìm!", "THÔNG BÁO")
        End If
    End Sub

    Private Sub btnTimKiemMa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimKiemMa.Click
        If Not txtMaChuNha.Text = "" Then
            Dim list As New List(Of KhachHangChoThueDTO)
            list = KhachHangChoThueBUS.TimTheoMaChuNha(txtMaChuNha.Text)
            If Not list.Count = 0 Then
                DataGridViewX1.DataSource = list
            Else
                MessageBox.Show("Xin lỗi! Không tìm thấy thông tin cần tìm", "THÔNG BÁO")
            End If
        Else
            MessageBox.Show("Bạn chưa nhập thông tin cần tìm!", "THÔNG BÁO")
        End If
    End Sub
End Class